0 REM  ZEICHENSAETZE UND BILDER EIN-
1 REM  BAUEN IN EIGENE PROGRAMME.
2 REM
3 REM  N1$ = NAME DES ZEICHENSATZES
4 REM  N2$ = NAME DES BILDES
5 REM
6 N1$="DEMO5 (ZEICHEN)"
7 N2$="DEMO5 (SCREEN)"                    :
8 IFX=0THENX=1:LOAD"(3)",8,1:REM TRANS
9 IFX=1THENX=2:LOADN2$,8,1:  REM SCREEN   :
10 POKE53280,0:POKE53281,0:PRINT"SPACE TO END
11 [151]53270,216:[151]53283,9:[151]53282,5
12 [129]A[178]828[164]828[170]45:[135]B:[151]A,B:[130]
15 [158]828:VC[178]53248:[151]VC[170]24,56
17 CI[178]56576:[151]CI,[194](CI)[175]252:[151]648,204:[153]"CONTLOAD"
20 [131]234,165,1,120,41,251,133,1,160,0,132,251,132,253,169,208,133,252,169,224
22 [131]133,254,162,16,177,251,145,253,200,208,249,230,252,230,254,202,208,242
25 [131]165,1,9,4,133,1,88,96
27 [158]57812N1$,8:[151]780,0
30 [151]781,0:[151]782,224:[158]65493
32 [158]24000,35000,35999,55296,55
35 [158]24000,34000,34999,52224,55:[129]T[178]1[164]200:[130]
37 [161]A$
38 [153]"CONTLOAD":[158]24000,1024,2023,52224,55:[129]T[178]1[164]200:[130]:[153]"LOAD"
39 [139]A$[179][177]" "[167]32
40 [153]"LOAD":[128]
41 :
42 [143]  DIE BILDER WERDEN ABSOLUT
43 [143]  GELADEN (,8,1) UND DANN MIT
44 [143]  DEM TRANSFEREBEFEHL VERSCHOBEN.
45 [143]  DER SCREEN (34000-34999) WIRD
46 [143]  NACH 52224 GESCHOBEN, DIE
47 [143]  FARBINFO'S (35000-35999) WERDEN
48 [143]  NACH 55296 GEBRACHT
49 [143]  (ZEILE 32+35).
50 [143]  DURCH DEN NEUEN ZEICHENSATZ
51 [143]  AENDERT SICH EINIGES IM
52 [143]  SPEICHER.
53 [143]  DER NEUE BILDSCHIRMSPEICHER
54 [143]  LIEGT NICHT MEHR BEI 1024,
55 [143]  SONDER AB 52224.
56 [143]  DER FARBSPEICHER BLEIBT ER-
57 [143]  HALTEN.
58 [143]  SPRITES MUESSEN AB 49152 IM
59 [143]  SPEICHER STEHEN, DIE SPRITE-
60 [143]  POINTER LIEGEN VON 53240 BIS
61 [143]  53247.
62 [143]  SIE ERRECHNEN SICH AUS:
63 [143]  (LAGEORT-49152)/64
64 [143]  BEI 'RUNSTOP/RESTORE' IST DER
65 [143]  CURSOR VERSCHWUNDEN. SIE
66 [143]  MUESSEN NUN 'BLIND' EINGEBEN:
67 [143]  POKE648,4.
68 [143]  DER ZEICHENSATZ LIEGT BEI
69 [143]  57344 UNTER DEM KERNAL-ROM.
70 [143]  MULTICOLOR EINSCHALTEN DURCH:
71 [143]  POKE53270,216
72 [143]  WIEDER AUSSCHALTEN:
73 [143]  POKE53270,200
74 [143]  FARBE 2 AENDERN:POKE53283,X
76 [143]  FARBE 3 AENDERN:POKE53282,X
77 [143]  FARBE 1 = SCHRIFTFARBE, BEI
78 [143]  MULTICOLOR NUR FARBEN 8-15
79 [143]  BENUTZEN.
80 [143]
81 [143]  SAURIEN SOFTWARE CP (C) 1989